Procedure Init
 Function  Position     :Word
 Function  Number       :Word
 Procedure GotoPosition (Here:Word)
 Procedure GotoNumber   (ButtonNumber:Word)
 Procedure DrawUp       (ButtonNumber:Word)
 Procedure DrawDown     (ButtonNumber:Word)
 Procedure Add          (X1, Y1, X2, Y2:Word; ...
 Procedure Move         (X, Y:Integer; ButtonNumber:Word)
 Procedure MoveAll      (X, Y:Integer)
 Procedure Create       (X1, Y1, X2, Y2:Word; ...
 Procedure WaitForClick (Var X, Y:Word;Var MouseButtons:Byte; ...
 Procedure KillAll
 Procedure KillFrom
 Procedure KillOne

 Private

 Function NewButtonNumber:Word